home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / gfa / procdure.lzh / RESOLUTN.LST < prev    next >
Encoding:
File List  |  1992-01-19  |  459 b   |  20 lines

  1. PROCEDURE resolution(change%)
  2.   LOCAL xa%
  3.   IF resolution|=0
  4.     resolution|=XBIOS(4)+1
  5.   ENDIF
  6.   xa%=XBIOS(4)+1
  7.   CLS
  8.   IF change%<3
  9.     IF change%=0 AND xa%<>resolution|
  10.       ~XBIOS(5,L:-1,L:-1,resolution|-1)
  11.       SPOKE &H44C,resolution|-1
  12.       SPOKE &H449,resolution|-1
  13.     ELSE IF resolution|<>change% AND change%>0
  14.       ~XBIOS(5,L:-1,L:-1,change%-1)
  15.       SPOKE &H44C,change%-1
  16.       SPOKE &H449,change%-1
  17.     ENDIF
  18.   ENDIF
  19. RETURN
  20.